/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hyperbole / hib-kbd.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 31 3a 32 | 35 20 31 39 39 35 0a 3b | 14:51:2|5 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 68 69 62 2d 6b 62 64 2e |perbole/|hib-kbd.|
|000000a0| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000b0| 73 69 6f 6e 20 31 39 2e | 31 33 20 58 45 6d 61 63 |sion 19.|13 XEmac|
|000000c0| 73 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |s Lucid.|.;;; byt|
|000000d0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000e0| 32 35 3b 20 31 2d 53 65 | 70 2d 39 34 2e 0a 3b 3b |25; 1-Se|p-94..;;|
|000000f0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000100| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000110| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000120| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000130| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000140| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000150| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000160| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000170| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000180| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000190| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001a0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001b0| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001c0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001d0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001e0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 31 39 |led for |Emacs 19|
|000001f0| 2e 22 29 29 0a 0a 28 66 | 73 65 74 20 27 61 63 74 |."))..(f|set 'act|
|00000200| 79 70 65 73 3a 3a 6b 62 | 64 2d 6b 65 79 20 23 5b |ypes::kb|d-key #[|
|00000210| 28 6b 65 79 2d 73 65 71 | 75 65 6e 63 65 29 20 22 |(key-seq|uence) "|
|00000220| c0 09 21 87 22 20 5b 6b | 62 64 2d 6b 65 79 3a 61 |..!." [k|bd-key:a|
|00000230| 63 74 20 6b 65 79 2d 73 | 65 71 75 65 6e 63 65 5d |ct key-s|equence]|
|00000240| 20 32 20 22 5c 0a 45 78 | 65 63 75 74 65 73 20 74 | 2 "\.Ex|ecutes t|
|00000250| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 62 69 6e 64 |he funct|ion bind|
|00000260| 69 6e 67 20 66 6f 72 20 | 4b 45 59 2d 53 45 51 55 |ing for |KEY-SEQU|
|00000270| 45 4e 43 45 2c 20 64 65 | 6c 69 6d 69 74 65 64 20 |ENCE, de|limited |
|00000280| 62 79 20 7b 7d 2e 0a 52 | 65 74 75 72 6e 73 20 74 |by {}..R|eturns t|
|00000290| 20 69 66 20 61 20 4b 45 | 59 2d 53 45 51 55 45 4e | if a KE|Y-SEQUEN|
|000002a0| 43 45 20 68 61 73 20 61 | 20 62 69 6e 64 69 6e 67 |CE has a| binding|
|000002b0| 2c 20 65 6c 73 65 20 6e | 69 6c 2e 22 20 22 6b 4b |, else n|il." "kK|
|000002c0| 65 79 62 6f 61 72 64 20 | 6b 65 79 20 74 6f 20 65 |eyboard |key to e|
|000002d0| 78 65 63 75 74 65 20 28 | 6e 6f 20 7b 7d 29 3a 20 |xecute (|no {}): |
|000002e0| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|000002f0| c0 c1 c2 5c 22 88 c3 c4 | c5 c6 23 88 c7 c8 21 87 |...\"...|..#...!.|
|00000300| 22 20 5b 73 65 74 70 6c | 69 73 74 20 61 63 74 79 |" [setpl|ist acty|
|00000310| 70 65 73 3a 3a 6b 62 64 | 2d 6b 65 79 20 6e 69 6c |pes::kbd|-key nil|
|00000320| 20 73 79 6d 73 65 74 3a | 61 64 64 20 6b 62 64 2d | symset:|add kbd-|
|00000330| 6b 65 79 20 61 63 74 79 | 70 65 73 20 73 79 6d 62 |key acty|pes symb|
|00000340| 6f 6c 73 20 72 75 6e 2d | 68 6f 6f 6b 73 20 68 74 |ols run-|hooks ht|
|00000350| 79 70 65 3a 63 72 65 61 | 74 65 2d 68 6f 6f 6b 5d |ype:crea|te-hook]|
|00000360| 20 34 29 0a 28 66 73 65 | 74 20 27 69 62 74 79 70 | 4).(fse|t 'ibtyp|
|00000370| 65 73 3a 3a 6b 62 64 2d | 6b 65 79 20 23 5b 6e 69 |es::kbd-|key #[ni|
|00000380| 6c 20 22 c0 20 3f ad b6 | c1 c2 c3 c4 c2 24 ae 86 |l ". ?..|.....$..|
|00000390| c1 c2 c5 c6 c2 24 89 1e | 07 40 89 1e 08 3b ad 86 |.....$..|.@...;..|
|000003a0| c9 ca 0e 08 21 21 89 1e | 0b ad 92 0e 0b a8 3f ad |....!!..|......?.|
|000003b0| 8c cc 0e 07 21 ad 86 0e | 0d ce 0e 08 5c 22 2b 87 |....!...|....\"+.|
|000003c0| 22 20 5b 62 72 2d 69 6e | 2d 62 72 6f 77 73 65 72 |" [br-in|-browser|
|000003d0| 20 68 62 75 74 3a 6c 61 | 62 65 6c 2d 70 20 74 20 | hbut:la|bel-p t |
|000003e0| 22 7b 60 22 20 22 27 7d | 22 20 22 7b 22 20 22 7d |"{`" "'}|" "{" "}|
|000003f0| 22 20 73 65 71 2d 61 6e | 64 2d 70 6f 73 20 6b 65 |" seq-an|d-pos ke|
|00000400| 79 2d 73 65 71 75 65 6e | 63 65 20 6b 65 79 2d 62 |y-sequen|ce key-b|
|00000410| 69 6e 64 69 6e 67 20 6b | 62 64 2d 6b 65 79 3a 6e |inding k|bd-key:n|
|00000420| 6f 72 6d 61 6c 69 7a 65 | 20 62 69 6e 64 69 6e 67 |ormalize| binding|
|00000430| 20 69 62 75 74 3a 6c 61 | 62 65 6c 2d 73 65 74 20 | ibut:la|bel-set |
|00000440| 68 72 75 6c 65 3a 61 63 | 74 69 6f 6e 20 6b 62 64 |hrule:ac|tion kbd|
|00000450| 2d 6b 65 79 5d 20 36 20 | 22 5c 0a 45 78 65 63 75 |-key] 6 |"\.Execu|
|00000460| 74 65 73 20 61 20 6b 65 | 79 20 73 65 71 75 65 6e |tes a ke|y sequen|
|00000470| 63 65 20 64 65 6c 69 6d | 69 74 65 64 20 62 79 20 |ce delim|ited by |
|00000480| 63 75 72 6c 79 20 62 72 | 61 63 65 73 2e 0a 4b 65 |curly br|aces..Ke|
|00000490| 79 20 73 65 71 75 65 6e | 63 65 73 20 73 68 6f 75 |y sequen|ces shou|
|000004a0| 6c 64 20 62 65 20 69 6e | 20 68 75 6d 61 6e 20 72 |ld be in| human r|
|000004b0| 65 61 64 61 62 6c 65 20 | 66 6f 72 6d 2c 20 65 2e |eadable |form, e.|
|000004c0| 67 2e 20 7b 43 2d 62 7d | 2e 0a 46 6f 72 6d 73 20 |g. {C-b}|..Forms |
|000004d0| 73 75 63 68 20 61 73 20 | 7b 02 7d 2c 20 7b 02 7d |such as |{.}, {.}|
|000004e0| 2c 20 61 6e 64 20 7b 5e | 62 7d 20 77 69 6c 6c 20 |, and {^|b} will |
|000004f0| 6e 6f 74 20 62 65 20 72 | 65 63 6f 67 6e 69 7a 65 |not be r|ecognize|
|00000500| 64 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |d."]).(b|yte-code|
|00000510| 20 22 c0 c1 c2 c3 c4 c3 | 46 5c 22 88 c5 c6 c7 c8 | "......|F\".....|
|00000520| 23 88 c9 ca 21 87 22 20 | 5b 73 65 74 70 6c 69 73 |#...!." |[setplis|
|00000530| 74 20 69 62 74 79 70 65 | 73 3a 3a 6b 62 64 2d 6b |t ibtype|s::kbd-k|
|00000540| 65 79 20 74 6f 2d 70 20 | 6e 69 6c 20 73 74 79 6c |ey to-p |nil styl|
|00000550| 65 20 73 79 6d 73 65 74 | 3a 61 64 64 20 6b 62 64 |e symset|:add kbd|
|00000560| 2d 6b 65 79 20 69 62 74 | 79 70 65 73 20 73 79 6d |-key ibt|ypes sym|
|00000570| 62 6f 6c 73 20 72 75 6e | 2d 68 6f 6f 6b 73 20 68 |bols run|-hooks h|
|00000580| 74 79 70 65 3a 63 72 65 | 61 74 65 2d 68 6f 6f 6b |type:cre|ate-hook|
|00000590| 5d 20 36 29 0a 28 66 73 | 65 74 20 27 6b 62 64 2d |] 6).(fs|et 'kbd-|
|000005a0| 6b 65 79 3a 61 63 74 20 | 23 5b 28 6b 65 79 2d 73 |key:act |#[(key-s|
|000005b0| 65 71 75 65 6e 63 65 29 | 20 22 c0 11 c2 c3 0c 21 |equence)| ".....!|
|000005c0| 21 89 1d ac 83 c0 aa 94 | 0d c6 3e ab 8a c7 20 88 |!.......|..>... .|
|000005d0| c8 c9 21 88 ca aa 85 cb | 0d 21 88 ca 29 87 22 20 |..!.....|.!..)." |
|000005e0| 5b 6e 69 6c 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |[nil cur|rent-pre|
|000005f0| 66 69 78 2d 61 72 67 20 | 6b 65 79 2d 62 69 6e 64 |fix-arg |key-bind|
|00000600| 69 6e 67 20 6b 62 64 2d | 6b 65 79 3a 6e 6f 72 6d |ing kbd-|key:norm|
|00000610| 61 6c 69 7a 65 20 6b 65 | 79 2d 73 65 71 75 65 6e |alize ke|y-sequen|
|00000620| 63 65 20 62 69 6e 64 69 | 6e 67 20 28 61 63 74 69 |ce bindi|ng (acti|
|00000630| 6f 6e 2d 6b 65 79 20 61 | 63 74 69 6f 6e 2d 6d 6f |on-key a|ction-mo|
|00000640| 75 73 65 2d 6b 65 79 20 | 68 6b 65 79 2d 65 69 74 |use-key |hkey-eit|
|00000650| 68 65 72 29 20 62 65 65 | 70 20 6d 65 73 73 61 67 |her) bee|p messag|
|00000660| 65 20 22 28 6b 62 64 2d | 6b 65 79 3a 61 63 74 29 |e "(kbd-|key:act)|
|00000670| 3a 20 54 68 69 73 20 6b | 65 79 20 64 6f 65 73 20 |: This k|ey does |
|00000680| 77 68 61 74 20 74 68 65 | 20 41 63 74 69 6f 6e 20 |what the| Action |
|00000690| 4b 65 79 20 64 6f 65 73 | 2e 22 20 74 20 63 61 6c |Key does|." t cal|
|000006a0| 6c 2d 69 6e 74 65 72 61 | 63 74 69 76 65 6c 79 5d |l-intera|ctively]|
|000006b0| 20 34 20 22 5c 0a 45 78 | 65 63 75 74 65 73 20 74 | 4 "\.Ex|ecutes t|
|000006c0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 62 69 6e 64 69 |he comma|nd bindi|
|000006d0| 6e 67 20 66 6f 72 20 4b | 45 59 2d 53 45 51 55 45 |ng for K|EY-SEQUE|
|000006e0| 4e 43 45 2e 0a 52 65 74 | 75 72 6e 73 20 74 20 69 |NCE..Ret|urns t i|
|000006f0| 66 20 4b 45 59 2d 53 45 | 51 55 45 4e 43 45 20 68 |f KEY-SE|QUENCE h|
|00000700| 61 73 20 61 20 62 69 6e | 64 69 6e 67 2c 20 65 6c |as a bin|ding, el|
|00000710| 73 65 20 6e 69 6c 2e 22 | 20 22 6b 4b 65 79 62 6f |se nil."| "kKeybo|
|00000720| 61 72 64 20 6b 65 79 20 | 74 6f 20 65 78 65 63 75 |ard key |to execu|
|00000730| 74 65 20 28 6e 6f 20 7b | 7d 29 3a 20 22 5d 29 0a |te (no {|}): "]).|
|00000740| 28 66 73 65 74 20 27 6b | 62 64 2d 6b 65 79 3a 64 |(fset 'k|bd-key:d|
|00000750| 6f 63 20 23 5b 28 6b 65 | 79 20 26 6f 70 74 69 6f |oc #[(ke|y &optio|
|00000760| 6e 61 6c 20 66 75 6c 6c | 29 20 22 c0 c1 5c 6e 21 |nal full|) "..\n!|
|00000770| 21 89 1b a8 3f ad 81 0b | 29 89 1b ad 83 c4 0b 21 |!...?...|)......!|
|00000780| 1d c6 1e 07 0d ab 94 0e | 08 ac 99 c9 ca 0d 5c 22 |........|......\"|
|00000790| 16 07 cb 0d cc 0e 07 4f | 21 15 aa 89 cd ce 5c 6e |.......O|!.....\n|
|000007a0| 0b ae 81 cf 23 15 0b ad | 8f 0d ad 8c 0e 08 ab 85 |....#...|........|
|000007b0| d0 0b 21 aa 83 d1 0d 21 | 2b 87 22 20 5b 6b 65 79 |..!....!|+." [key|
|000007c0| 2d 62 69 6e 64 69 6e 67 | 20 6b 62 64 2d 6b 65 79 |-binding| kbd-key|
|000007d0| 3a 6e 6f 72 6d 61 6c 69 | 7a 65 20 6b 65 79 20 63 |:normali|ze key c|
|000007e0| 6d 64 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |md docum|entation|
|000007f0| 20 64 6f 63 20 6e 69 6c | 20 65 6e 64 2d 6c 69 6e | doc nil| end-lin|
|00000800| 65 20 66 75 6c 6c 20 73 | 74 72 69 6e 67 2d 6d 61 |e full s|tring-ma|
|00000810| 74 63 68 20 22 5b 5c 6e | 5d 22 20 73 75 62 73 74 |tch "[\n|]" subst|
|00000820| 69 74 75 74 65 2d 63 6f | 6d 6d 61 6e 64 2d 6b 65 |itute-co|mmand-ke|
|00000830| 79 73 20 30 20 66 6f 72 | 6d 61 74 20 22 4e 6f 20 |ys 0 for|mat "No |
|00000840| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 66 6f |document|ation fo|
|00000850| 72 20 7b 25 73 7d 20 25 | 73 22 20 22 22 20 64 65 |r {%s} %|s" "" de|
|00000860| 73 63 72 69 62 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |scribe-f|unction |
|00000870| 6d 65 73 73 61 67 65 5d | 20 35 20 22 5c 0a 53 68 |message]| 5 "\.Sh|
|00000880| 6f 77 73 20 66 69 72 73 | 74 20 6c 69 6e 65 20 6f |ows firs|t line o|
|00000890| 66 20 64 6f 63 20 66 6f | 72 20 62 69 6e 64 69 6e |f doc fo|r bindin|
|000008a0| 67 20 6f 66 20 6b 65 79 | 62 6f 61 72 64 20 4b 45 |g of key|board KE|
|000008b0| 59 20 69 6e 20 6d 69 6e | 69 62 75 66 66 65 72 2e |Y in min|ibuffer.|
|000008c0| 0a 57 69 74 68 20 6f 70 | 74 69 6f 6e 61 6c 20 46 |.With op|tional F|
|000008d0| 55 4c 4c 2c 20 64 69 73 | 70 6c 61 79 73 20 66 75 |ULL, dis|plays fu|
|000008e0| 6c 6c 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |ll docum|entation|
|000008f0| 20 66 6f 72 20 63 6f 6d | 6d 61 6e 64 2e 22 20 22 | for com|mand." "|
|00000900| 6b 4b 65 79 20 73 65 71 | 75 65 6e 63 65 3a 20 5c |kKey seq|uence: \|
|00000910| 6e 50 22 5d 29 0a 28 66 | 73 65 74 20 27 6b 62 64 |nP"]).(f|set 'kbd|
|00000920| 2d 6b 65 79 3a 68 65 6c | 70 20 23 5b 28 62 75 74 |-key:hel|p #[(but|
|00000930| 29 20 22 c0 c1 5c 6e c3 | 5c 22 21 89 1c ad 84 c5 |) "..\n.|\"!.....|
|00000940| 0c c6 5c 22 29 87 22 20 | 5b 68 62 75 74 3a 6b 65 |..\")." |[hbut:ke|
|00000950| 79 2d 74 6f 2d 6c 61 62 | 65 6c 20 68 61 74 74 72 |y-to-lab|el hattr|
|00000960| 3a 67 65 74 20 62 75 74 | 20 6c 62 6c 2d 6b 65 79 |:get but| lbl-key|
|00000970| 20 6b 62 64 2d 6b 65 79 | 20 6b 62 64 2d 6b 65 79 | kbd-key| kbd-key|
|00000980| 3a 64 6f 63 20 66 75 6c | 6c 5d 20 35 20 22 5c 0a |:doc ful|l] 5 "\.|
|00000990| 44 69 73 70 6c 61 79 20 | 64 6f 63 75 6d 65 6e 74 |Display |document|
|000009a0| 61 74 69 6f 6e 20 66 6f | 72 20 62 69 6e 64 69 6e |ation fo|r bindin|
|000009b0| 67 20 6f 66 20 6b 65 79 | 62 6f 61 72 64 20 6b 65 |g of key|board ke|
|000009c0| 79 20 67 69 76 65 6e 20 | 62 79 20 42 55 54 27 73 |y given |by BUT's|
|000009d0| 20 6c 61 62 65 6c 2e 22 | 5d 29 0a 28 66 73 65 74 | label."|]).(fset|
|000009e0| 20 27 6b 62 64 2d 6b 65 | 79 3a 6e 6f 72 6d 61 6c | 'kbd-ke|y:normal|
|000009f0| 69 7a 65 20 23 5b 28 6b | 65 79 2d 73 65 71 75 65 |ize #[(k|ey-seque|
|00000a00| 6e 63 65 29 20 22 c0 89 | c1 5c 6e 21 70 c0 c3 1c |nce) "..|.\n!p...|
|00000a10| 1d 1e 06 1e 07 1e 08 1e | 09 ca cb 0e 07 cc 23 16 |........|......#.|
|00000a20| 07 ca cd 0e 07 ce 23 16 | 07 ca cf 0e 07 d0 23 16 |......#.|......#.|
|00000a30| 07 ca d1 0e 07 d2 23 16 | 07 ca d3 0e 07 d4 23 16 |......#.|......#.|
|00000a40| 07 ca d5 0e 07 d6 23 16 | 07 ca d7 0e 07 d8 23 16 |......#.|......#.|
|00000a50| 07 d9 da 0e 07 5c 22 ab | 95 db 0e 07 dc 94 dc 95 |.....\".|........|
|00000a60| 4f 21 16 1d 0e 07 de 95 | c0 4f 16 07 aa 64 c0 1e |O!......|.O...d..|
|00000a70| 1f d9 e0 0e 07 5c 22 ab | a9 0e 1d 3c ab 89 0e 1d |.....\".|...<....|
|00000a80| 40 89 16 1f a8 ac 86 e1 | 16 1d e2 16 1f 0e 1f e3 |@.......|........|
|00000a90| 5f 89 16 1f c0 42 16 1d | 0e 07 de 95 c0 4f 16 07 |_....B..|.....O..|
|00000aa0| aa 50 29 ca e4 0e 07 e5 | 23 16 07 ca e6 0e 07 e7 |.P).....|#.......|
|00000ab0| 23 2e 06 87 22 20 5b 6e | 69 6c 20 63 6f 70 79 2d |#..." [n|il copy-|
|00000ac0| 73 65 71 75 65 6e 63 65 | 20 6b 65 79 2d 73 65 71 |sequence| key-seq|
|00000ad0| 75 65 6e 63 65 20 74 20 | 63 61 73 65 2d 72 65 70 |uence t |case-rep|
|00000ae0| 6c 61 63 65 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |lace cas|e-fold-s|
|00000af0| 65 61 72 63 68 20 6f 62 | 75 66 20 6e 6f 72 6d 2d |earch ob|uf norm-|
|00000b00| 6b 65 79 2d 73 65 71 20 | 65 6e 64 20 73 74 61 72 |key-seq |end star|
|00000b10| 74 20 68 79 70 62 3a 72 | 65 70 6c 61 63 65 2d 6d |t hypb:r|eplace-m|
|00000b20| 61 74 63 68 2d 73 74 72 | 69 6e 67 20 22 5b 20 09 |atch-str|ing "[ .|
|00000b30| 5c 6e 0d 5d 2b 22 20 22 | 22 20 22 40 6b 65 79 7b |\n.]+" "|" "@key{|
|00000b40| 53 50 43 7d 5c 5c 7c 53 | 50 43 22 20 22 20 22 20 |SPC}\\|S|PC" " " |
|00000b50| 22 40 6b 65 79 7b 44 45 | 4c 7d 5c 5c 7c 44 45 4c |"@key{DE|L}\\|DEL|
|00000b60| 22 20 22 7f 22 20 22 40 | 6b 65 79 7b 52 45 54 7d |" "." "@|key{RET}|
|00000b70| 5c 5c 7c 40 6b 65 79 7b | 52 54 4e 7d 5c 5c 7c 52 |\\|@key{|RTN}\\|R|
|00000b80| 45 54 5c 5c 7c 52 54 4e | 22 20 22 0d 22 20 22 45 |ET\\|RTN|" "." "E|
|00000b90| 53 43 45 53 43 22 20 22 | 9b 22 20 22 40 6b 65 79 |SCESC" "|." "@key|
|00000ba0| 7b 45 53 43 7d 5c 5c 7c | 45 53 43 22 20 22 4d 2d |{ESC}\\||ESC" "M-|
|00000bb0| 22 20 22 5c 5c 5c 5c 5c | 5c 28 5b 7b 7d 5d 5c 5c |" "\\\\\|\([{}]\\|
|00000bc0| 29 22 20 22 5c 5c 31 22 | 20 73 74 72 69 6e 67 2d |)" "\\1"| string-|
|00000bd0| 6d 61 74 63 68 20 22 5c | 5c 60 5c 5c 28 43 2d 75 |match "\|\`\\(C-u|
|00000be0| 5c 5c 7c 4d 2d 5c 5c 29 | 5c 5c 28 2d 3f 5b 30 2d |\\|M-\\)|\\(-?[0-|
|00000bf0| 39 5d 2b 5c 5c 29 22 20 | 73 74 72 69 6e 67 2d 74 |9]+\\)" |string-t|
|00000c00| 6f 2d 69 6e 74 20 32 20 | 63 75 72 72 65 6e 74 2d |o-int 2 |current-|
|00000c10| 70 72 65 66 69 78 2d 61 | 72 67 20 30 20 61 72 67 |prefix-a|rg 0 arg|
|00000c20| 2d 76 61 6c 20 22 5c 5c | 60 43 2d 75 22 20 28 31 |-val "\\|`C-u" (1|
|00000c30| 29 20 31 20 34 20 22 43 | 2d 5c 5c 28 2e 5c 5c 29 |) 1 4 "C|-\\(.\\)|
|00000c40| 22 20 23 5b 28 73 74 72 | 29 20 22 c0 c1 5c 6e c3 |" #[(str|) "..\n.|
|00000c50| 94 c3 94 54 4f 21 97 c4 | 5a 54 21 87 22 20 5b 63 |...TO!..|ZT!." [c|
|00000c60| 68 61 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 73 74 |har-to-s|tring st|
|00000c70| 72 69 6e 67 2d 74 6f 2d | 63 68 61 72 20 73 74 72 |ring-to-|char str|
|00000c80| 20 31 20 39 37 5d 20 35 | 5d 20 22 4d 2d 5c 5c 28 | 1 97] 5|] "M-\\(|
|00000c90| 2e 5c 5c 29 22 20 23 5b | 28 73 74 72 29 20 22 c0 |.\\)" #[|(str) ".|
|00000ca0| c1 5c 6e c3 94 c3 94 54 | 4f 21 97 c4 5c 5c 21 87 |.\n....T|O!..\\!.|
|00000cb0| 22 20 5b 63 68 61 72 2d | 74 6f 2d 73 74 72 69 6e |" [char-|to-strin|
|00000cc0| 67 20 73 74 72 69 6e 67 | 2d 74 6f 2d 63 68 61 72 |g string|-to-char|
|00000cd0| 20 73 74 72 20 31 20 31 | 32 38 5d 20 35 5d 5d 20 | str 1 1|28] 5]] |
|00000ce0| 37 20 22 5c 0a 52 65 74 | 75 72 6e 73 20 4b 45 59 |7 "\.Ret|urns KEY|
|00000cf0| 2d 53 45 51 55 45 4e 43 | 45 20 6e 6f 72 6d 61 6c |-SEQUENC|E normal|
|00000d00| 69 7a 65 64 20 69 6e 74 | 6f 20 61 20 66 6f 72 6d |ized int|o a form|
|00000d10| 20 74 68 61 74 20 63 61 | 6e 20 62 65 20 70 61 72 | that ca|n be par|
|00000d20| 73 65 64 20 62 79 20 63 | 6f 6d 6d 61 6e 64 73 2e |sed by c|ommands.|
|00000d30| 22 20 22 6b 4b 65 79 62 | 6f 61 72 64 20 6b 65 79 |" "kKeyb|oard key|
|00000d40| 20 73 65 71 75 65 6e 63 | 65 20 74 6f 20 6e 6f 72 | sequenc|e to nor|
|00000d50| 6d 61 6c 69 7a 65 20 28 | 6e 6f 20 7b 7d 29 3a 20 |malize (|no {}): |
|00000d60| 22 5d 29 0a 28 70 72 6f | 76 69 64 65 20 27 68 69 |"]).(pro|vide 'hi|
|00000d70| 62 2d 6b 62 64 29 0a    |                         |b-kbd). |        |
+--------+-------------------------+-------------------------+--------+--------+